* subr.el (internal--after-with-selected-window): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 684d7533ae6dd0db3b7ecff9bf1cf9837b0c5d3e..6189f4a2ca599d51f26834827d20f566fe46b76d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-14  Daiki Ueno  <ueno@unixuser.org>
+
+       * subr.el (internal--after-with-selected-window): Fix typo
+       (Bug#12193).
+
 2012-08-14  Fabián Ezequiel Gallina  <fgallina@cuca>
 
        Use `completion-table-dynamic' for completion functions.

diff --git a/lisp/subr.el b/lisp/subr.el
index 212632ff779823962652a90fd76010577700db82..4f566a3e1d354d5817f0ccd6e73dce2daf6c01c0 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3048,8 +3048,8 @@ also `with-temp-buffer'."
          (not (eq (tty-top-frame) (nth 3 state)))
          (select-frame (nth 3 state) 'norecord)))
   ;; Then reset the actual selected-window.
-  (when (window-live-p (nth 2 state))
-    (select-window (nth 2 state) 'norecord)))
+  (when (window-live-p (nth 1 state))
+    (select-window (nth 1 state) 'norecord)))
 
 (defmacro with-selected-window (window &rest body)
   "Execute the forms in BODY with WINDOW as the selected window.